(visit-tags-table-buffer): Move error call into scope of `file'.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 5f4889477f9b4bb706488b0c78ce2b32193fba1a..63ef96a397f460c5f97a189f9a55994f7d0713ab 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -548,8 +548,8 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
       (let ((file tags-file-name))
        (kill-local-variable 'tags-file-name)
        (if (eq file tags-file-name)
-           (setq tags-file-name nil)))
-      (error "File %s is not a valid tags table" file))))
+           (setq tags-file-name nil))
+       (error "File %s is not a valid tags table" file)))))
 \f
 (defun file-of-tag ()
   "Return the file name of the file whose tags point is within.